home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / 64alv2b.sfx / mailit81 (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  4KB  |  131 lines
  1. 1 REM:MAILIT81 COPYRIGHT 1992 BY JACK VANDER WHITE
  2. 5 PRINTCHR$(147):IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60
  3. 10 PRINTCHR$(147):A$="     -----------------"
  4. 20 PRINTA$
  5. 30 PRINT"           MENU "
  6. 40 PRINTA$:PRINT
  7. 50 PRINT"1 =   GO TO PARTITIONS"
  8. 60 PRINT
  9. 70 PRINT"2 =   RENAME PARTITIONS"
  10. 80 PRINT
  11. 90 PRINT"3 =   RESET DRIVE"
  12. 100 PRINT
  13. 110 PRINT"4 =   FORMAT DISK AND MAKE PARTIONS":PRINT
  14. 120 PRINT"5 =   QUIT":PRINT:PRINT
  15. 130 INPUTY$
  16. 140 ONVAL(Y$)GOTO190,910,160,260,640
  17. 150 GOTO10
  18. 160 PRINTCHR$(147):INPUT"TYPE DEVICE NUMBER OF 1581";D
  19. 170 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  20. 180 GOTO10
  21. 190 PRINTCHR$(147):INPUT"TYPE DEVICE NUMBER OF 1581";D
  22. 200 PRINT:PRINT:PRINT
  23. 210 PRINT"TYPE KEY 1 - 4 FOR PARTIONS #1 - #4"
  24. 220 INPUTP$
  25. 230 ONVAL(P$)GOTO250,250,250,250
  26. 240 GOTO220
  27. 250 OPEN15,D,15:PRINT#15,"/0:"+P$+"*":CLOSE15:NEW
  28. 260 PRINTCHR$(147):PRINT"THIS WILL FORMAT THE DISK IN YOUR"
  29. 270 PRINT"1581 DRIVE - ALL DATA ON THE DISK"
  30. 280 PRINT"WILL BE LOST - CONTINUE???"
  31. 290 PRINTA$
  32. 300 INPUT" (Y)ES   OR    (N)O";N$
  33. 310 IFN$="Y"THENGOTO340
  34. 320 IFN$="N"THENGOTO10
  35. 330 GOTO260
  36. 340 PRINTCHR$(147):INPUT"TYPE DEVICE NUMBER OF 1581";D
  37. 350 PRINTCHR$(147)
  38. 360 INPUT"ENTER A DISK NAME";E$
  39. 370 INPUT"ENTER A 2 LETTER ID CODE";F$
  40. 380 OPEN15,D,15,"N0:"+E$+CHR$(44)+F$:CLOSE15
  41. 390 OPEN15,D,15:PRINT#15,"IO":CLOSE15
  42. 400 GOSUB1110
  43. 410 A$="------------------------------"
  44. 420 PRINT CHR$(147):PRINT:PRINT
  45. 430 PRINT A$:PRINT "NOW WE NEED PARTITION SIZES"
  46. 440 PRINT A$:PRINT:PRINT "WHAT SIZE PARTITIONS DO YOU WANT"
  47. 450 PRINT:PRINT:PRINT "     (1) 2 1571 PARTITIONS"
  48. 460 PRINT:PRINT "     (2) 4 1541 PARTITIONS"
  49. 470 PRINT:PRINT "     CHOOSE 1 OR 2"
  50. 480 INPUT S$
  51. 490 ONVAL (S$) GOTO 510,650
  52. 500 GOTO 480
  53. 510 OPEN15,D,15
  54. 520 PRINT#15,"/0:1,"+CHR$(01)+CHR$(0)+CHR$(160)+CHR$(5)+",C"
  55. 530 CLOSE15
  56. 540 OPEN15,D,15:PRINT#15,"/0:1":PRINT#15,"N0:DATA DISK 1,"+F$:CLOSE15
  57. 550 GOSUB1110
  58. 560 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  59. 570 OPEN15,D,15
  60. 580 PRINT#15,"/0:2,"+CHR$(41)+CHR$(0)+CHR$(160)+CHR$(5)+",C"
  61. 590 CLOSE15
  62. 600 OPEN15,D,15:PRINT#15,"/0:2":PRINT#15,"N0:DATA DISK 2,"+F$:CLOSE15
  63. 610 GOSUB1110
  64. 620 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  65. 630 SAVE"MAILIT81",(D)
  66. 640 NEW
  67. 650 OPEN15,D,15
  68. 660 PRINT#15,"/0:1,"+CHR$(01)+CHR$(0)+CHR$(208)+CHR$(2)+",C"
  69. 670 CLOSE15
  70. 680 OPEN15,D,15:PRINT#15,"/0:1":PRINT#15,"N0:DATA DISK 1,"+F$:CLOSE15
  71. 690 GOSUB1110
  72. 700 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  73. 710 OPEN15,D,15
  74. 720 PRINT#15,"/0:2,"+CHR$(21)+CHR$(0)+CHR$(208)+CHR$(2)+",C"
  75. 730 CLOSE15
  76. 740 OPEN15,D,15:PRINT#15,"/0:2":PRINT#15,"N0:DATA DISK 2,"+F$:CLOSE15
  77. 750 GOSUB1110
  78. 760 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  79. 770 OPEN15,D,15
  80. 780 PRINT#15,"/0:3,"+CHR$(41)+CHR$(0)+CHR$(208)+CHR$(2)+",C"
  81. 790 CLOSE15
  82. 800 OPEN15,D,15:PRINT#15,"/0:3":PRINT#15,"N0:DATA DISK 3,"+F$:CLOSE15
  83. 810 GOSUB1110
  84. 820 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  85. 830 OPEN15,D,15
  86. 840 PRINT#15,"/0:4,"+CHR$(61)+CHR$(0)+CHR$(208)+CHR$(2)+",C"
  87. 850 CLOSE15
  88. 860 OPEN15,D,15:PRINT#15,"/0:4":PRINT#15,"N0:DATA DISK 4,"+F$:CLOSE15
  89. 870 GOSUB1110
  90. 880 OPEN15,D,15:PRINT#15,"/":PRINT#15,"IO":CLOSE15
  91. 890 SAVE"MAILIT81",(D)
  92. 900 NEW
  93. 910 PRINTCHR$(147):INPUT"TYPE DEVICE NUMBER OF 1581";D
  94. 920 PRINTCHR$(147):PRINTA$
  95. 930 PRINT"     RENAME PARTITIONS"
  96. 940 PRINTA$
  97. 950 PRINT"YOU MUST START THE NEW"
  98. 960 PRINT:PRINT"PARTITION NAME WITH THE"
  99. 970 PRINT:PRINT"SAME NUMBER IT HAS NOW"
  100. 980 PRINT:PRINT"12 CHARACTER NAME LIMIT"
  101. 990 PRINTA$
  102. 1000 INPUT"OLD PARTITION NAME";B$
  103. 1010 PRINTA$
  104. 1020 INPUT"NEW PARTITION NAME";C$
  105. 1030 OPEN15,D,15,"R0:"+C$+"="+B$
  106. 1040 CLOSE15
  107. 1050 OPEN15,D,15:PRINT#15,"IO":CLOSE15
  108. 1060 PRINTCHR$(147):PRINT"WISH TO DO ANOTHER"
  109. 1070 INPUT" (Y)ES   OR     (N)O";G$
  110. 1080 IFG$="Y"THENGOTO910
  111. 1090 IFG$="N"THENGOTO10
  112. 1100 GOTO 1060
  113. 1110 OPEN4,D,4,"/,P,W"
  114. 1120 FORL=1TO233
  115. 1130 READA
  116. 1140 PRINT#4,CHR$(A);
  117. 1150 NEXT
  118. 1160 PRINT#4
  119. 1170 CLOSE4
  120. 1180 RESTORE:RETURN
  121. 1190 DATA1,8,45,8,10,0,153,199,40,49,52,55,41,58,133,34,84,89,80,69,32,68,69,86
  122. 1200 DATA73,67,69,32,78,85,77,66,69,82,32,79,70,32,49,53,56,49,34,59,68,0,83,8
  123. 1210 DATA20,0,153,58,153,58,153,34,72,73,84,32,75,69,89,32,49,45,52,32,70,79,82
  124. 1220 DATA32,80,65,82,84,73,84,73,79,78,83,34,0,118,8,30,0,153,34,72,73,84,32,75
  125. 1230 DATA69,89,32,53,32,84,79,32,82,69,84,85,82,78,32,84,79,32,82,79,79,84,34,0
  126. 1240 DATA127,8,40,0,133,32,80,36,0,157,8,50,0,145,197,40,80,36,41,137,54,48,44
  127. 1250 DATA54,48,44,54,48,44,54,48,44,55,48,58,137,52,48,0,203,8,60,0,159,49,53
  128. 1260 DATA44,68,44,49,53,58,152,49,53,44,34,47,34,58,152,49,53,44,34,47,48,58,34
  129. 1270 DATA170,40,80,36,41,170,34,42,34,58,160,49,53,58,162,0,230,8,70,0,159,49
  130. 1280 DATA53,44,68,44,49,53,58,152,49,53,44,34,47,34,58,160,49,53,58,162,0,0,0
  131.